home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD013b.dsk / MATCH THE PITCH.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  53 lines
  1. 10  REM  - MATCH THE PITCH
  2. 20  REM  BY JULIE KERR 8/5/82
  3. 25  HOME 
  4. 37  REM  SOUND ROUTINE
  5. 40  FOR LOC = 776 TO 798
  6. 50  READ BYTE: POKE LOC,BYTE
  7. 60  NEXT LOC
  8. 70  DATA   255,255,173,48,192,136,208,5,206,9,3,240,9,202,208,245,174,8,3,7 6,10,3,96
  9. 75  REM  PRINT INSTRUCTIONS
  10. 76  HOME 
  11. 80  PRINT "LISTEN TO THE FIRST SOUND.  THEN LISTEN"
  12. 90  PRINT "TO THE SECOND SOUND.  TUNE THE SECOND"
  13. 100  PRINT "SOUND BY PRESSING <L> TO GO LOWER"
  14. 110  PRINT "AND <H> TO GO HIGHER.  WHEN YOU THINK"
  15. 120  PRINT "IT'S IN TUNE, PRESS <T>."
  16. 122  PRINT "IF YOU WANT TO GO FASTER, HOLD THE"
  17. 124  PRINT "REPEAT KEY DOWN WITH THE <L> OR <H> KEY."
  18. 126  PRINT 
  19. 127  PRINT "DO YOU WANT TO HEAR THE TARGET PITCH"
  20. 128  PRINT "EACH TIME?"
  21. 130  INPUT A$
  22. 132  IF A$ = "Y"  OR A$ = "YES"  THEN P = 1
  23. 135  REM  MAKE FIRST SOUND
  24. 140  FOR T = 1 TO 1500: NEXT T
  25. 150 N = ( INT( RND(1) *100 +1)) +50
  26. 160  POKE 776,N
  27. 170  POKE 777,255
  28. 180  CALL 778
  29. 182  FOR T = 1 TO 500: NEXT T
  30. 185  REM  MAKE SECOND SOUND
  31. 190 T = ( INT( RND(1) *100 +1)) +50
  32. 192  IF P = 0  THEN  GOTO 200
  33. 194  POKE 776,N
  34. 196  POKE 777,100
  35. 198  CALL 778
  36. 200  POKE 776,T
  37. 210  POKE 777,100
  38. 220  CALL 778
  39. 225  REM  CHANGE PITCH
  40. 230  GET C$
  41. 240  IF C$ = "H"  THEN T = T -1
  42. 250  IF C$ = "L"  THEN T = T +1
  43. 260  IF C$ = "T"  THEN  GOTO 310
  44. 270  IF T = 50  THEN T = 51
  45. 280  IF T = 150  THEN T = 149
  46. 290  GOTO 192
  47. 295  REM  PRINT SCORE
  48. 310  IF T = N  THEN  PRINT "TUNED BY AN EXPERT!": GOTO 350
  49. 320  IF T >N -10  AND T <N +10  THEN  PRINT "VERY GOOD": GOTO 350
  50. 330  IF T >N -20  AND T <N +20  THEN  PRINT "YOU NEED A LITTLE MORE PRACTICE": GOTO 350
  51. 340  PRINT "PRACTICE MAKES PERFECT"
  52. 350  PRINT "THE TONE WAS "256 -N" - YOU CHOSE "256 -T
  53. 360  END